home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 5 / Amiga Tools 5.iso / grafik / 3d & render tools / irit / contrib / scripts / masok.irt < prev    next >
Encoding:
Text File  |  1996-07-16  |  10.5 KB  |  315 lines
  1. # 
  2. #
  3. resolution = 100;
  4.  
  5. Mesh= list( list( ctlpt( E3,  0.0 ,  0.668 , -2.8 ),
  6.               ctlpt( E3,  0.0 ,  0.668 , -2.8 ),
  7.               ctlpt( E3,  0.0 ,  0.669 , -2.8 ),
  8.               ctlpt( E3,  0.0 ,  0.669 , -2.8 ),
  9.               ctlpt( E3,  0.0 ,  0.668 , -2.8 ),
  10.               ctlpt( E3,  0.0 ,  0.668 , -2.8 )),
  11.         list( ctlpt( E3,  0.0  ,  0.666 , -0.83 ),
  12.           ctlpt( E3, -0.05 ,  0.666 , -0.83 ),
  13.           ctlpt( E3, -0.05 ,  0.670 , -0.83 ),
  14.           ctlpt( E3,  0.05 ,  0.670 , -0.83 ),
  15.           ctlpt( E3,  0.05 ,  0.666 , -0.83 ),
  16.           ctlpt( E3,  0.0  ,  0.666 , -0.83 ) ),
  17.         list( ctlpt( E3,  0.0 ,  0.64 , -0.82 ),
  18.           ctlpt( E3, -0.2 ,  0.64 , -0.82 ),
  19.           ctlpt( E3, -0.2 ,  0.68 , -0.82 ),
  20.           ctlpt( E3,  0.2 ,  0.68 , -0.82 ),
  21.           ctlpt( E3,  0.2 ,  0.64 , -0.82 ),
  22.           ctlpt( E3,  0.0 ,  0.64 , -0.82 ) ) ) ;
  23.                
  24. nos = sbspline(3, 2, Mesh,list(list(KV_OPEN),list(KV_OPEN)) );
  25.  
  26. Mesh =  list(
  27.         list( ctlpt( E3,  0.0 ,  0.64 , -0.82 ),
  28.           ctlpt( E3, -0.2 ,  0.64 , -0.82 ),
  29.           ctlpt( E3, -0.2 ,  0.68 , -0.82 ),
  30.           ctlpt( E3,  0.2 ,  0.68 , -0.82 ),
  31.           ctlpt( E3,  0.2 ,  0.64 , -0.82 ),
  32.           ctlpt( E3,  0.0 ,  0.64 , -0.82 ) ),
  33.         list( ctlpt( E3,  0.0 ,  0.4 , -0.8 ),
  34.           ctlpt( E3, -1.0 ,  0.4 , -0.8 ),
  35.           ctlpt( E3, -1.0 ,  0.8 , -0.8 ),
  36.           ctlpt( E3,  1.0 ,  0.8 , -0.8 ),
  37.           ctlpt( E3,  1.0 ,  0.4 , -0.8 ),
  38.           ctlpt( E3,  0.0 ,  0.4 , -0.8 ) ),
  39.         list( ctlpt( E3,  0.0 ,  0.2 , -0.5 ),
  40.           ctlpt( E3, -1.22,  0.2 , -0.5 ),
  41.           ctlpt( E3, -1.22,  1.1 , -0.5 ),
  42.           ctlpt( E3,  1.22,  1.1 , -0.5 ),
  43.           ctlpt( E3,  1.22,  0.2 , -0.5 ),
  44.           ctlpt( E3,  0.0 ,  0.2 , -0.5 ) ),
  45.  
  46.         list( ctlpt( E3,  0.0 ,  0.0 ,  0.5 ),
  47.           ctlpt( E3, -1.35,  0.0 ,  0.5 ),
  48.           ctlpt( E3, -1.35,  2.4 ,  0.5 ),
  49.           ctlpt( E3,  1.35,  2.4 ,  0.5 ),
  50.           ctlpt( E3,  1.35,  0.0 ,  0.5 ),
  51.           ctlpt( E3,  0.0 ,  0.0 ,  0.5 ) ),
  52.         list( ctlpt( E3,  0.0 ,  0.0 ,  1.55 ),
  53.           ctlpt( E3, -1.4 ,  0.0 ,  1.55 ),
  54.           ctlpt( E3, -1.4 ,  2.4 ,  1.55 ),
  55.           ctlpt( E3,  1.4 ,  2.4 ,  1.55 ),
  56.           ctlpt( E3,  1.4 ,  0.0 ,  1.55 ),
  57.           ctlpt( E3,  0.0 ,  0.0 ,  1.55 ) ),
  58.         list( ctlpt( E3,  0.0 ,  0.0 ,  1.55 ),
  59.           ctlpt( E3, -1.4 ,  0.0 ,  1.55 ),
  60.           ctlpt( E3, -1.4 ,  2.4 ,  1.55 ),
  61.           ctlpt( E3,  1.4 ,  2.4 ,  1.55 ),
  62.           ctlpt( E3,  1.4 ,  0.0 ,  1.55 ),
  63.           ctlpt( E3,  0.0 ,  0.0 ,  1.55 ) ),
  64.         list( ctlpt( E3,  0.0 ,  0.0 ,  2.55 ),
  65.           ctlpt( E3, -1.1 ,  0.0 ,  2.55 ),
  66.           ctlpt( E3, -1.1 ,  2.4 ,  2.55 ),
  67.           ctlpt( E3,  1.1 ,  2.4 ,  2.55 ),
  68.           ctlpt( E3,  1.1 ,  0.0 ,  2.55 ),
  69.           ctlpt( E3,  0.0 ,  0.0 ,  2.55 ) ),
  70.  
  71.  
  72.         list( ctlpt( E3,  0.0 ,  0.0 ,  6.0 ),
  73.           ctlpt( E3, -1.0 ,  0.0 ,  6.0 ),
  74.           ctlpt( E3, -1.0 ,  2.4 ,  6.0 ),
  75.           ctlpt( E3,  1.0 ,  2.4 ,  6.0 ),
  76.           ctlpt( E3,  1.0 ,  0.0 ,  6.0 ),
  77.           ctlpt( E3,  0.0 ,  0.0 ,  6.0 ) ),
  78.         list( ctlpt( E3,  0.0 ,  0.5 ,  6.6 ),
  79.           ctlpt( E3, -1.0 ,  0.5 ,  6.6 ),
  80.           ctlpt( E3, -1.0 ,  2.0 ,  6.6 ),
  81.           ctlpt( E3,  1.0 ,  2.0 ,  6.6 ),
  82.           ctlpt( E3,  1.0 ,  0.5 ,  6.6 ),
  83.           ctlpt( E3,  0.0 ,  0.5 ,  6.6 ) ),
  84.         list( ctlpt( E3,  0.0 ,  1.0 ,  6.8 ),
  85.           ctlpt( E3, -0.7 ,  1.0 ,  6.8 ),
  86.           ctlpt( E3, -0.7 ,  2.0 ,  6.8 ),
  87.           ctlpt( E3,  0.7 ,  2.0 ,  6.8 ),
  88.           ctlpt( E3,  0.7 ,  1.0 ,  6.8 ),
  89.           ctlpt( E3,  0.0 ,  1.0 ,  6.8 ) ),
  90.  
  91.         list( ctlpt( E3,  0.0 ,  1.5 ,  9.0 ),
  92.           ctlpt( E3, -0.2 ,  1.5 ,  9.0 ),
  93.           ctlpt( E3, -0.2 ,  2.0 ,  9.0 ),
  94.           ctlpt( E3,  0.2 ,  2.0 ,  9.0 ),
  95.           ctlpt( E3,  0.2 ,  1.5 ,  9.0 ),
  96.           ctlpt( E3,  0.0 ,  1.5 ,  9.0 ) ),
  97.         list( ctlpt( E3,  0.0 ,  1.9 ,  9.5 ),
  98.           ctlpt( E3, -0.2 ,  1.9 ,  9.5 ),
  99.           ctlpt( E3, -0.2 ,  2.0 ,  9.5 ),
  100.           ctlpt( E3,  0.2 ,  2.0 ,  9.5 ),
  101.           ctlpt( E3,  0.2 ,  1.9 ,  9.5 ),
  102.           ctlpt( E3,  0.0 ,  1.9 ,  9.5 ) )  );
  103.  
  104. body = sbspline(4 , 3 ,Mesh , list (list(KV_OPEN),
  105.        list(0, 0, 0, 1, 1.3, 1.5, 1.8, 2.2, 3.2, 3.9, 4.6, 5.3, 6, 6, 6)));
  106. #body = body*scale( vector(1.0, 1.22, 1.0));
  107.  
  108. Mesh = list(
  109. #        list( ctlpt( E3,  -1.111,  2.0 ,  8.85 ),
  110. #          ctlpt( E3,  -1.111,  2.0 ,  8.84 ),
  111. #          ctlpt( E3,  -1.111,  2.1 ,  8.84 ),
  112. #          ctlpt( E3,  -1.111,  2.1 ,  8.86 ),
  113. #          ctlpt( E3,  -1.111,  2.0 ,  8.86 ),
  114. #              ctlpt( E3,  -1.111,  2.0 ,  8.85) ),
  115. #
  116.          list( ctlpt( E3,  -1.11,  1.0 ,  8.85 ),
  117.           ctlpt( E3,  -1.11,  1.0 ,  8.5 ),
  118.           ctlpt( E3,  -1.11,  2.5 ,  8.5 ),
  119.           ctlpt( E3,  -1.11,  2.5 ,  10.3 ),
  120.           ctlpt( E3,  -1.11,  1.0 ,  10.3 ),
  121.               ctlpt( E3,  -1.11,  1.0 ,  8.85) ),
  122.  
  123.        list ( ctlpt( E3,  -1.1 ,  1.0 ,  8.85 ),
  124.           ctlpt( E3,  -1.1 ,  1.0 ,  8.5 ),
  125.           ctlpt( E3,  -1.1 ,  2.5 ,  8.5 ),
  126.           ctlpt( E3,  -1.1 ,  2.5 ,  10.3 ),
  127.           ctlpt( E3,  -1.1 ,  1.0 ,  10.3 ),
  128.               ctlpt( E3,  -1.1 ,  1.0 ,  8.85) ),
  129.  
  130.         list( ctlpt( E3,  -1.08 ,  1.9 ,  8.85 ),
  131.           ctlpt( E3,  -1.08 ,  1.9 ,  8.7 ),
  132.           ctlpt( E3,  -1.08 ,  2.0 ,  8.7 ),
  133.           ctlpt( E3,  -1.08 ,  2.0 ,  9.5),
  134.               ctlpt( E3,  -1.08 ,  1.9 ,  9.5 ),
  135.               ctlpt( E3,  -1.08 ,  1.9 ,  8.85) ),
  136.   
  137.         list( ctlpt( E3,  -1.0 ,  1.9 ,  8.85 ),
  138.           ctlpt( E3,  -1.0 ,  1.9 ,  8.7 ),
  139.           ctlpt( E3,  -1.0 ,  2.0 ,  8.7 ),
  140.           ctlpt( E3,  -1.0 ,  2.0 ,  9.5 ),
  141.           ctlpt( E3,  -1.0 ,  1.9 ,  9.5 ),
  142.               ctlpt( E3,  -1.0 ,  1.9 ,  8.85) ),
  143.  
  144.         list( ctlpt( E3,  0.0 ,  1.9 ,  8.85 ),
  145.           ctlpt( E3,  0.0 ,  1.9 ,  8.7 ),
  146.           ctlpt( E3,  0.0 ,  2.0 ,  8.7 ),
  147.           ctlpt( E3,  0.0 ,  2.0 ,  9.5 ),
  148.           ctlpt( E3,  0.0 ,  1.9 ,  9.5 ),
  149.               ctlpt( E3,  0.0 ,  1.9 ,  8.85) ),
  150.  
  151.         list( ctlpt( E3,  1.0 ,  1.9 ,  8.85 ),
  152.           ctlpt( E3,  1.0 ,  1.9 ,  8.7 ),
  153.           ctlpt( E3,  1.0 ,  2.0 ,  8.7 ),
  154.           ctlpt( E3,  1.0 ,  2.0 ,  9.5 ),
  155.           ctlpt( E3,  1.0 ,  1.9 ,  9.5 ),
  156.               ctlpt( E3,  1.0 ,  1.9 ,  8.85 )  ), 
  157.  
  158.         list( ctlpt( E3,  1.08 ,  1.9 ,  8.85 ),
  159.           ctlpt( E3,  1.08 ,  1.9 ,  8.7 ),
  160.           ctlpt( E3,  1.08 ,  2.0 ,  8.7 ),
  161.           ctlpt( E3,  1.08 ,  2.0 ,  9.5 ),
  162.           ctlpt( E3,  1.08 ,  1.9 ,  9.5 ),
  163.               ctlpt( E3,  1.08 ,  1.9 ,  8.85) ),
  164.  
  165.        list ( ctlpt( E3,  1.1 ,  1.0 ,  8.85 ),
  166.           ctlpt( E3,  1.1 ,  1.0 ,  8.5 ),
  167.           ctlpt( E3,  1.1 ,  2.5 ,  8.5 ),
  168.           ctlpt( E3,  1.1 ,  2.5 ,  10.3 ),
  169.           ctlpt( E3,  1.1 ,  1.0 ,  10.3 ),
  170.               ctlpt( E3,  1.1 ,  1.0 ,  8.85) ),
  171.  
  172.         list( ctlpt( E3,  1.11 , 1.0 ,  8.85 ),
  173.           ctlpt( E3,  1.11,  1.0 ,  8.5 ),
  174.           ctlpt( E3,  1.11,  2.5 ,  8.5 ),
  175.           ctlpt( E3,  1.11,  2.5 ,  10.3 ),
  176.           ctlpt( E3,  1.11,  1.0 ,  10.3 ),
  177.               ctlpt( E3,  1.11,  1.0 ,  8.85) ),
  178.  
  179.         list( ctlpt( E3,  1.111,  1.5 ,  8.85), 
  180.               ctlpt( E3,  1.111,  1.5 ,  8.85), 
  181.               ctlpt( E3,  1.111,  1.5 ,  8.85), 
  182.               ctlpt( E3,  1.111,  1.5 ,  8.85), 
  183.               ctlpt( E3,  1.111,  1.5 ,  8.85), 
  184.               ctlpt( E3,  1.111,  1.5 ,  8.85) ) );
  185.  
  186. hvost = sbspline(4,2,Mesh,list (list(KV_OPEN),list(KV_OPEN)));
  187. hvost = hvost * trans( vector( 0.0, -0.34, -1.0));
  188.  
  189. hvost = hvost*scale( vector( 1.5, 1.5, 1.5 ));
  190.  
  191. Mesh = list( 
  192.         list( ctlpt( E3,  1.0 ,  1.7 ,  1.35 ),
  193.           ctlpt( E3,  1.0 ,  1.7 ,  1.0 ),
  194.           ctlpt( E3,  1.0 ,  1.9 ,  1.0 ),
  195.           ctlpt( E3,  1.0 ,  1.9 ,  2.8 ),
  196.           ctlpt( E3,  1.0 ,  1.7 ,  2.8 ),
  197.               ctlpt( E3,  1.0 ,  1.7 ,  1.35) ),
  198.         list( ctlpt( E3,  2.0 ,  1.6 ,  0.85 ),
  199.           ctlpt( E3,  2.0 ,  1.6 ,  0.5 ),
  200.           ctlpt( E3,  2.0 ,  2.0 ,  0.5 ),
  201.           ctlpt( E3,  2.0 ,  2.0 ,  3.0 ),
  202.           ctlpt( E3,  2.0 ,  1.6 ,  3.0 ),
  203.               ctlpt( E3,  2.0 ,  1.6 ,  0.85) ),
  204.         list( ctlpt( E3,  4.0 ,  1.6 ,  0.85 ),
  205.           ctlpt( E3,  4.0 ,  1.6 ,  0.5 ),
  206.           ctlpt( E3,  4.0 ,  2.0 ,  0.5 ),
  207.           ctlpt( E3,  4.0 ,  2.0 ,  3.0 ),
  208.           ctlpt( E3,  4.0 ,  1.6 ,  3.0 ),
  209.               ctlpt( E3,  4.0 ,  1.6 ,  0.85) ),
  210.         list( ctlpt( E3,  5.0 ,  1.7 ,  1.35 ),
  211.           ctlpt( E3,  5.0 ,  1.7 ,  1.0 ),
  212.           ctlpt( E3,  5.0 ,  1.9 ,  1.0 ),
  213.           ctlpt( E3,  5.0 ,  1.9 ,  2.8 ),
  214.           ctlpt( E3,  5.0 ,  1.7 ,  2.8 ),
  215.               ctlpt( E3,  5.0 ,  1.7 ,  1.35) ) );
  216.  
  217. krylo = sbspline(4,3,Mesh,list (list(KV_OPEN),list(KV_OPEN)));
  218. krylo = krylo*trans( vector(  -3.0, -0.33, 3.05 ) );
  219. krylo = krylo*scale( vector(  1.42,  0.5, 0.8 ) );
  220.    
  221.  body = list( nos, body );
  222.  body = body * scale( vector( 1.23, 1.22, 1.3) );
  223.  masok = list(body , krylo, hvost) ;
  224. # masok = masok * scale( vector( 0.23, 0.23, 0.17) );
  225.  
  226. color( masok, green);
  227. #attrib( masok, "resolution",100);
  228. attrib( masok, "texture","wood");
  229. attrib( masok, "reflect",0.6);
  230. attrib( masok, "rgb", "10,200,80");
  231.  
  232.  
  233. #body1=body + krylo1 ;          
  234. #
  235. # BOMBA
  236. #
  237. v0 = vector(  0.0, -1.5,  9.0 );
  238. v1 = vector(  0.0,  1.5,  9.0 );
  239. v2 = vector(  0.0,  1.5, 12.0 );
  240. v3 = vector(  0.0, -1.5, 12.0 );
  241. h1 = poly( list( v0, v1, v2 ,v3 ), false );
  242. h2 = h1*rotz(90);
  243.  
  244. m = list ( 
  245. ctlpt(E3, 0.0, 0.0 , 0.0 ),
  246. ctlpt(E3, 0.0, 2.0 , 1.0 ),
  247. ctlpt(E3, 0.0, 2.0 , 3.0 ),
  248. ctlpt(E3, 0.0, 1.0 , 5.0 ),
  249. ctlpt(E3, 0.0, 1.0 , 5.0 ),
  250. ctlpt(E3, 0.0, 1.0 , 8.0 ) );
  251.  
  252. b = cbezier(m);
  253. b=surfrev(b);
  254. b = b*scale( vector(0.7 , 0.7 , 1.5 ) );
  255. bomba = list(b , h1 , h2);
  256.  
  257. bomba=bomba*scale( vector( 0.15 , 0.15 , 0.15 ) );
  258. bomba1=bomba*trans( vector( 2.2 ,  0.4,   3.0) );
  259. bomba2=bomba1*trans( vector(0.6 ,  0.0 ,  0.1 ) );
  260.  
  261. bomba3=bomba*trans( vector(-2.1 ,  0.4 ,  3.0 ) );
  262. bomba4=bomba3*trans( vector(-0.6 ,  0.0 ,  0.1 ) );
  263.  
  264. bombs = list(bomba1,bomba2,bomba3,bomba4);
  265. color( bombs, white );
  266. attrib( bombs, "texture", "marble" );
  267. attrib( bombs, "reflect", 0.6 );
  268.  
  269.  
  270. masok = list( masok, bombs);
  271.  
  272. #
  273. v1 = vector(  0.0,  0.0, 0.0 );
  274. v2 = vector(  0.0,  0.0, 7.0 );
  275. v3 = vector(  0.1,  0.1, 7.0);
  276. prop = poly( list( v1, v2 ,v3 ), false );
  277.  
  278. prop=prop*roty(30);
  279. prop1=prop;
  280. prop2=prop1*roty(180);
  281.  
  282. prop=prop*trans( vector( 0.0, 0.4, 0.0));
  283. prop3=prop*roty(90);
  284. prop4=prop3*roty(180);
  285.  
  286. v1 = vector(  0.0,  -0.3, 0.0 );
  287. v2 = vector(  0.0,   0.5, 0.0 );
  288. palka=poly( list(v1, v2), true);
  289. vint=list( prop1 , prop2 , prop3 , prop4, palka );
  290. vint=vint*trans( vector( 0.0 , 2.9 , 4.0) );
  291.  
  292. color( vint, white );
  293. attrib( vint, "texture", "marble" );
  294. attrib( vint, "reflect", 0.6 );
  295. attrib( vint, "rgb","100,100,100");
  296.  
  297.  
  298. masok = list( masok, vint);
  299.  
  300. #
  301. # View it all and dump it.
  302. #
  303. #
  304. # Go to single buffer since this one is slow.
  305. #
  306. viewstate("DblBuffer");
  307.  
  308. save_mat = view_mat;
  309. view_mat = view_mat * scale( vector( 0.1, 0.1, 0.1) );
  310. masok = masok * scale( vector( 0.2, 0.2, 0.2) );
  311. #masok = masok * rotx(90);
  312. interact(masok);
  313. save("masok",masok);
  314. view_mat = save_mat;
  315.